home *** CD-ROM | disk | FTP | other *** search
/ Windows 95 Super Collection / Windows 95 Super Collection.iso / win95 / programm / vbxstd20 / tabed.fr_ / TABED.FRM (.txt)
Encoding:
Visual Basic Form  |  1995-07-20  |  11.8 KB  |  393 lines
  1. VERSION 2.00
  2. Begin Form TabedDialog 
  3.    BackColor       =   &H00D9D7D9&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Tabbed dialog demo..."
  6.    ClientHeight    =   3756
  7.    ClientLeft      =   888
  8.    ClientTop       =   1536
  9.    ClientWidth     =   6096
  10.    Height          =   4080
  11.    Left            =   840
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3756
  14.    ScaleWidth      =   6096
  15.    Top             =   1260
  16.    Width           =   6192
  17.    Begin VBLine VBLine5 
  18.       BackColor       =   0  'Use system colors
  19.       Height          =   312
  20.       Help            =   &H00000000&
  21.       Left            =   96
  22.       LineColor       =   2  'Black
  23.       LineStyle       =   4  'VBTab rectangle
  24.       LineThickness   =   2
  25.       Style3D         =   3  'Raised thin
  26.       Top             =   3288
  27.       Prop17          =   &H00000000&
  28.       Width           =   5724
  29.       Prop16          =   0
  30.    End
  31.    Begin VBLine VBLine4 
  32.       BackColor       =   0  'Use system colors
  33.       Height          =   2895
  34.       Help            =   &H00000000&
  35.       Left            =   96
  36.       LineColor       =   2  'Black
  37.       LineStyle       =   5  'VBTab Left line
  38.       LineThickness   =   2
  39.       Style3D         =   3  'Raised thin
  40.       Top             =   690
  41.       Prop17          =   &H00000000&
  42.       Width           =   108
  43.       Prop16          =   0
  44.    End
  45.    Begin VBLine VBLine2 
  46.       BackColor       =   0  'Use system colors
  47.       Height          =   2892
  48.       Help            =   &H00000000&
  49.       Left            =   5712
  50.       LineColor       =   2  'Black
  51.       LineStyle       =   7  'VBTab Right line
  52.       LineThickness   =   2
  53.       Style3D         =   3  'Raised thin
  54.       Top             =   700
  55.       Prop17          =   &H00000000&
  56.       Width           =   108
  57.       Prop16          =   0
  58.    End
  59.    Begin CommandButton Command4 
  60.       Caption         =   "Option..."
  61.       Height          =   348
  62.       Left            =   288
  63.       TabIndex        =   0
  64.       Top             =   1284
  65.       Visible         =   0   'False
  66.       Width           =   1728
  67.    End
  68.    Begin CheckBox Check1 
  69.       BackColor       =   &H00C0C0C0&
  70.       Caption         =   "Available for panels 1,2 and 3"
  71.       Height          =   300
  72.       Left            =   288
  73.       TabIndex        =   7
  74.       Top             =   1320
  75.       Visible         =   0   'False
  76.       Width           =   2928
  77.    End
  78.    Begin CommandButton Command3 
  79.       Caption         =   "Cancel"
  80.       Height          =   360
  81.       Left            =   4092
  82.       TabIndex        =   8
  83.       Top             =   1236
  84.       Width           =   1572
  85.    End
  86.    Begin CommandButton Command2 
  87.       Caption         =   "OK"
  88.       Height          =   360
  89.       Left            =   4092
  90.       TabIndex        =   9
  91.       Top             =   828
  92.       Width           =   1572
  93.    End
  94.    Begin VBTab VBTab6 
  95.       Active          =   0   'False
  96.       BackColor       =   &H00D8D4D8&
  97.       Caption         =   "T&hree"
  98.       FirstLeft       =   0   'False
  99.       FirstLine       =   -1  'True
  100.       FirstRight      =   -1  'True
  101.       FlashColor      =   &H0000FFFF&
  102.       FlashTxtColor   =   &H00000000&
  103.       ForeColor       =   &H00000000&
  104.       HandCursor      =   -1  'True
  105.       Height          =   336
  106.       Help            =   &H00000000&
  107.       Left            =   3936
  108.       TabCorners      =   -1  'True
  109.       TabIndex        =   6
  110.       Text3D          =   0  'No 3D
  111.       Top             =   360
  112.       UseSystemColors =   -1  'True
  113.       Prop18          =   &H00000000&
  114.       Width           =   1884
  115.       Prop17          =   0
  116.    End
  117.    Begin VBTab VBTab5 
  118.       Active          =   0   'False
  119.       BackColor       =   &H00D8D4D8&
  120.       Caption         =   "&Two"
  121.       FirstLeft       =   0   'False
  122.       FirstLine       =   -1  'True
  123.       FirstRight      =   0   'False
  124.       FlashColor      =   &H0000FFFF&
  125.       FlashTxtColor   =   &H00000000&
  126.       ForeColor       =   &H00000000&
  127.       HandCursor      =   -1  'True
  128.       Height          =   336
  129.       Help            =   &H00000000&
  130.       Left            =   2016
  131.       TabCorners      =   -1  'True
  132.       TabIndex        =   5
  133.       Text3D          =   0  'No 3D
  134.       Top             =   360
  135.       UseSystemColors =   -1  'True
  136.       Prop18          =   &H00000000&
  137.       Width           =   1925
  138.       Prop17          =   0
  139.    End
  140.    Begin VBTab VBTab4 
  141.       Active          =   -1  'True
  142.       BackColor       =   &H00D8D4D8&
  143.       Caption         =   "&One"
  144.       FirstLeft       =   -1  'True
  145.       FirstLine       =   -1  'True
  146.       FirstRight      =   0   'False
  147.       FlashColor      =   &H0000FFFF&
  148.       FlashTxtColor   =   &H00000000&
  149.       ForeColor       =   &H00000000&
  150.       HandCursor      =   -1  'True
  151.       Height          =   336
  152.       Help            =   &H00000000&
  153.       Left            =   96
  154.       TabCorners      =   -1  'True
  155.       TabIndex        =   4
  156.       Text3D          =   0  'No 3D
  157.       Top             =   360
  158.       UseSystemColors =   -1  'True
  159.       Prop18          =   &H00000000&
  160.       Width           =   1925
  161.       Prop17          =   0
  162.    End
  163.    Begin VBTab VBTab3 
  164.       Active          =   0   'False
  165.       BackColor       =   &H00D8D4D8&
  166.       Caption         =   "&Six"
  167.       FirstLeft       =   0   'False
  168.       FirstLine       =   0   'False
  169.       FirstRight      =   -1  'True
  170.       FlashColor      =   &H0000FFFF&
  171.       FlashTxtColor   =   &H00000000&
  172.       ForeColor       =   &H00000000&
  173.       HandCursor      =   -1  'True
  174.       Height          =   320
  175.       Help            =   &H00000000&
  176.       Left            =   4056
  177.       TabCorners      =   -1  'True
  178.       TabIndex        =   3
  179.       Text3D          =   0  'No 3D
  180.       Top             =   65
  181.       UseSystemColors =   -1  'True
  182.       Prop18          =   &H00000000&
  183.       Width           =   1932
  184.       Prop17          =   0
  185.    End
  186.    Begin VBTab VBTab2 
  187.       Active          =   0   'False
  188.       BackColor       =   &H00D8D4D8&
  189.       Caption         =   "F&ive"
  190.       FirstLeft       =   0   'False
  191.       FirstLine       =   0   'False
  192.       FirstRight      =   0   'False
  193.       FlashColor      =   &H0000FFFF&
  194.       FlashTxtColor   =   &H00000000&
  195.       ForeColor       =   &H00000000&
  196.       HandCursor      =   -1  'True
  197.       Height          =   320
  198.       Help            =   &H00000000&
  199.       Left            =   2136
  200.       TabCorners      =   -1  'True
  201.       TabIndex        =   2
  202.       Text3D          =   0  'No 3D
  203.       Top             =   65
  204.       UseSystemColors =   -1  'True
  205.       Prop18          =   &H00000000&
  206.       Width           =   1925
  207.       Prop17          =   0
  208.    End
  209.    Begin VBTab VBTab1 
  210.       Active          =   0   'False
  211.       BackColor       =   &H00D8D4D8&
  212.       Caption         =   "&Four"
  213.       FirstLeft       =   -1  'True
  214.       FirstLine       =   0   'False
  215.       FirstRight      =   0   'False
  216.       FlashColor      =   &H0000FFFF&
  217.       FlashTxtColor   =   &H00000000&
  218.       ForeColor       =   &H00000000&
  219.       HandCursor      =   -1  'True
  220.       Height          =   320
  221.       Help            =   &H00000000&
  222.       Left            =   216
  223.       TabCorners      =   -1  'True
  224.       TabIndex        =   1
  225.       Text3D          =   0  'No 3D
  226.       Top             =   65
  227.       UseSystemColors =   -1  'True
  228.       Prop18          =   &H00000000&
  229.       Width           =   1925
  230.       Prop17          =   0
  231.    End
  232.    Begin VBLine VBLine3 
  233.       BackColor       =   4  'Light grey (pure)
  234.       Height          =   36
  235.       Help            =   &H00000000&
  236.       Left            =   5784
  237.       LineColor       =   2  'Black
  238.       LineStyle       =   6  'VBTab Bottom line
  239.       LineThickness   =   2
  240.       Style3D         =   3  'Raised thin
  241.       Top             =   3300
  242.       Prop17          =   &H00000000&
  243.       Width           =   180
  244.       Prop16          =   0
  245.    End
  246.    Begin VBLine VBLine1 
  247.       BackColor       =   0  'Use system colors
  248.       Height          =   2985
  249.       Help            =   &H00000000&
  250.       Left            =   5835
  251.       LineColor       =   2  'Black
  252.       LineStyle       =   7  'VBTab Right line
  253.       LineThickness   =   2
  254.       Style3D         =   3  'Raised thin
  255.       Top             =   345
  256.       Prop17          =   &H00000000&
  257.       Width           =   150
  258.       Prop16          =   0
  259.    End
  260.    Begin Label Label1 
  261.       BackColor       =   &H00C0C0C0&
  262.       Height          =   204
  263.       Left            =   252
  264.       TabIndex        =   10
  265.       Top             =   936
  266.       Width           =   2556
  267.    End
  268. Sub Command2_Click ()
  269. Unload TabedDialog
  270. End Sub
  271. Sub Form_Load ()
  272. HandleMyVBTab
  273. End Sub
  274. Sub Form_Paint ()
  275. 'Label1.Caption = "You are on the first panel..."
  276. End Sub
  277. Sub HandleMyVBTab ()
  278. 'Search the active VBTab control
  279. a = 0
  280. If VBTab4.Active Then
  281. a = 4
  282. ElseIf VBTab5.Active Then
  283. a = 5
  284. ElseIf VBTab6.Active Then
  285. a = 6
  286. Else a = 0
  287. End If
  288. Select Case a
  289. Case 0
  290. Label1.Caption = "You are on the first panel..."
  291. Command4.Visible = False
  292. Check1.Visible = True
  293. Case 4
  294. If VBTab4.Caption = "&One" Then
  295. Label1.Caption = "You are on the first panel..."
  296. Command4.Visible = False
  297. Check1.Visible = True
  298. ElseIf VBTab4.Caption = "&Two" Then
  299. Label1.Caption = "You are on the second panel..."
  300. Command4.Visible = False
  301. Check1.Visible = True
  302. ElseIf VBTab4.Caption = "T&hree" Then
  303. Label1.Caption = "You are on the third panel..."
  304. Command4.Visible = False
  305. Check1.Visible = True
  306. ElseIf VBTab4.Caption = "&Four" Then
  307. Label1.Caption = "You are on the panel 4..."
  308. Check1.Visible = False
  309. Command4.Visible = True
  310. ElseIf VBTab4.Caption = "F&ive" Then
  311. Label1.Caption = "You are on the panel 5..."
  312. Check1.Visible = False
  313. Command4.Visible = True
  314. ElseIf VBTab4.Caption = "&Six" Then
  315. Label1.Caption = "You are on the panel 6..."
  316. Check1.Visible = False
  317. Command4.Visible = True
  318. End If
  319. Case 5
  320. If VBTab5.Caption = "&One" Then
  321. Label1.Caption = "You are on the first panel..."
  322. Command4.Visible = False
  323. Check1.Visible = True
  324. ElseIf VBTab5.Caption = "&Two" Then
  325. Label1.Caption = "You are on the second panel..."
  326. Command4.Visible = False
  327. Check1.Visible = True
  328. ElseIf VBTab5.Caption = "T&hree" Then
  329. Label1.Caption = "You are on the third panel..."
  330. Command4.Visible = False
  331. Check1.Visible = True
  332. ElseIf VBTab5.Caption = "&Four" Then
  333. Label1.Caption = "You are on the panel 4..."
  334. Check1.Visible = False
  335. Command4.Visible = True
  336. ElseIf VBTab5.Caption = "F&ive" Then
  337. Label1.Caption = "You are on the panel 5..."
  338. Check1.Visible = False
  339. Command4.Visible = True
  340. ElseIf VBTab5.Caption = "&Six" Then
  341. Label1.Caption = "You are on the panel 6..."
  342. Check1.Visible = False
  343. Command4.Visible = True
  344. End If
  345. Case 6
  346. If VBTab6.Caption = "&One" Then
  347. Label1.Caption = "You are on the first panel..."
  348. Command4.Visible = False
  349. Check1.Visible = True
  350. ElseIf VBTab6.Caption = "&Two" Then
  351. Label1.Caption = "You are on the second panel..."
  352. Command4.Visible = False
  353. Check1.Visible = True
  354. ElseIf VBTab6.Caption = "T&hree" Then
  355. Label1.Caption = "You are on the third panel..."
  356. Command4.Visible = False
  357. Check1.Visible = True
  358. ElseIf VBTab6.Caption = "&Four" Then
  359. Label1.Caption = "You are on the panel 4..."
  360. Check1.Visible = False
  361. Command4.Visible = True
  362. ElseIf VBTab6.Caption = "F&ive" Then
  363. Label1.Caption = "You are on the panel 5..."
  364. Check1.Visible = False
  365. Command4.Visible = True
  366. ElseIf VBTab6.Caption = "&Six" Then
  367. Label1.Caption = "You are on the panel 6..."
  368. Check1.Visible = False
  369. Command4.Visible = True
  370. End If
  371. End Select
  372. 'Command4.Refresh
  373. End Sub
  374. Sub VBTab1_Click ()
  375. HandleMyVBTab
  376. 'HandleMyVBTab
  377. End Sub
  378. Sub VBTab2_Click ()
  379. HandleMyVBTab
  380. End Sub
  381. Sub VBTab3_Click ()
  382. HandleMyVBTab
  383. End Sub
  384. Sub VBTab4_Click ()
  385. HandleMyVBTab
  386. End Sub
  387. Sub VBTab5_Click ()
  388. HandleMyVBTab
  389. End Sub
  390. Sub VBTab6_Click ()
  391. HandleMyVBTab
  392. End Sub
  393.